home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 December / macformat-057.iso / mac / Demos / Lineker's Real Football Demo / DATA / ScrollV / 00027_Script_27 < prev    next >
Encoding:
Text File  |  1997-08-03  |  542 b   |  23 lines
  1. on ReadSelectedField
  2.   
  3.   set ReadText = []
  4.   set ReadTextList = []
  5.   set MarkerText = ""
  6.   set selectedMember = the mouseMember
  7.   
  8.   set Save = the itemDelimiter    
  9.   set the itemDelimiter = ","
  10.   
  11.   put the text of member selectedMember into ReadText
  12.   put the number of items in ReadText into itemCounter
  13.   
  14.   --  repeat with x = itemCounter down to 1
  15.   --    put item x of ReadText into RT
  16.   --    add ReadTextList, RT
  17.   --  end repeat
  18.   
  19.   put item 1 of Readtext into MarkerText
  20.   
  21.   go to label(MarkerText)
  22.   
  23. end